home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / CarribeanPoker.dxr / Internal_8_deal cards.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  1.0 KB  |  54 lines
  1. property pSprite, spriteNum, pNormal, pRollover, pPressed, pDisabled, pActive
  2. global gDeck, gBetUI, gMessageBox, gBet, gPlayerUI
  3.  
  4. on beginSprite me
  5.   pSprite = sprite(spriteNum)
  6.   pNormal = pSprite.member
  7.   gPlayerUI.addProp(pNormal.name.symbol, pSprite)
  8.   pRollover = member(pSprite.member.name && "over")
  9.   pPressed = member(pSprite.member.name && "down")
  10.   pDisabled = member(pSprite.member.name && "dis")
  11.   pActive = 1
  12.   me.toggleActive(#off)
  13. end
  14.  
  15. on mouseEnter me
  16.   if pActive then
  17.     pSprite.member = pRollover
  18.   end if
  19. end
  20.  
  21. on toggleActive me, onOff
  22.   case onOff of
  23.     #on:
  24.       pSprite.member = pNormal
  25.       pActive = 1
  26.     #off:
  27.       pSprite.member = pDisabled
  28.       pActive = 0
  29.   end case
  30. end
  31.  
  32. on mouseLeave me
  33.   if pActive then
  34.     pSprite.member = pNormal
  35.   end if
  36. end
  37.  
  38. on mouseDown me
  39.   if pActive then
  40.     pSprite.member = pPressed
  41.   end if
  42. end
  43.  
  44. on mouseUp me
  45.   if pActive then
  46.     gMessageBox.text = EMPTY
  47.     me.toggleActive(#off)
  48.     repeat with i in gBetUI
  49.       i.toggleActive(#off)
  50.     end repeat
  51.     dealCardsOut()
  52.   end if
  53. end
  54.